home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Mines Of Merlin (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  24KB  |  669 lines
  1. 10 rem     "vault of terror"
  2. 20 rem  by cleveland m. blakemore
  3. 30 rem          (v4.8)
  4. 40 :
  5. 50 poke53280,.:poke53281,.:goto1780
  6. 60 rem wallhandler
  7. 70 vl=fc:onfc+1gosub720,720,820,850,870
  8. 80 return
  9. 90 rem doorhandler
  10. 100 gosub70:onfc+1gosub1040,900,960,1000,1020:return
  11. 110 rem shafthandler
  12. 120 onfc+1gosub1080,1100,1120,1140:return
  13. 130 rem exithandler
  14. 140 onfc+1gosub1170,1190,1210,1230:return
  15. 150 rem ladderhandler
  16. 160 lp=fc:onfc+1gosub1260,1310,1340,1370:return
  17. 170 rem coffinhandler
  18. 180 onfc+1gosub1400,1430,1460,1480:return
  19. 190 rem print basic view
  20. 200 print"[147][146] [205][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][206]"
  21. 210 print" [205][165]                                  [167][206]
  22. 220 [153]" (NULL)fn                                 closethen(NULL)
  23. 230 print" [205][165]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]   [167][206]
  24. 240 [153]" (NULL)fn  then(NULL)                          waitstepfn  then(NULL)
  25. 250 print" [205][165][160] [167] [223]                        [146][169] [165] [160][167][206]
  26. 260 [153]" (NULL)fn  then then(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)fn fn  then(NULL)
  27. 270 print" [205][165]  [167] [167][205] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][160][206][165] [165]  [167][206]
  28. 280 [153]"  fn  then then(NULL) fnthen(NULL)              waitstepfnthen (NULL)fn fn closethen
  29. 290 print"  [165]  [167] [167][205] [165][167][167][205]            [206][165][165][167] [206][165] [165]  [167]
  30. 300 [153]"  (NULL)usrusr(NULL) then(NULL) fnthenthen(NULL)(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)(NULL)fnfnthen (NULL)fn (NULL)usrusr(NULL)
  31. 310 print"  [165][213][201][146][167] [167][160] [213][201][146][167][205][165][212][162][162][162][162][162][162][162][162][217][146][167][206][165][213][201][146] [160][165] [165][213][201][146][167]
  32. 320 [153]"  fnmid$(NULL)waitthen then  mid$(NULL)waitthen (NULL)(NULL)wait(NULL).lenlenlenlen.wait(NULL)(NULL)(NULL)wait fnmid$(NULL)wait  fn fnmid$(NULL)waitthen
  33. 330 print"  [204][175][175][186] [167][160] [165][167][167][206][165][212][146][206][199][146]    [200][146][205][217][146][167][205][165][165][167] [160][165] [204][175][175][186]"
  34. 340 print" [206][165][160] [167] [167][206] [165][167][167][206][165][212][146][206][163][163][163][163][163][163][205][217][146][167][205][165][165][167] [205][165][160][165] [160][167][205]
  35. 350 [153]" (NULL)fn  thenclosethen(NULL) fnthenthen(NULL)(NULL)steptab(tab(tab(tab(tab(tab(tab(tab((NULL)sqr(NULL)fnfnthen (NULL)fn fn  then(NULL)
  36. 360 print" [206][165][160][160][167][160][167][206] [165][167][167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165][165][167] [205][165] [165]  [167][205]
  37. 370 [153]" (NULL)fn closethenclosethen(NULL) (NULL)sqr(NULL)              (NULL)(NULL)sqr (NULL)fn fn closethen(NULL)
  38. 380 print" [206][165][160][160][167] [167][206][163][160] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [163][205][165] [165]  [167][205]
  39. 390 [153]" (NULL)fncloseclosethenclosethen                        fn fn  then(NULL)
  40. 400 print" [206][165][160][160][167] [206]                        [205][160][165][160] [167][205]
  41. 410 [153]" (NULL)(NULL)andandsqr(NULL)                          (NULL)(NULL)andandsqr(NULL)"
  42. 420 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  43. 430 [153]"   ";d$(cd);"  close     #close$close%close&close'close(close)close* +       ";d$(cd);"  wait";
  44. 440 [153]l$(dd);:[142]
  45. 450 [143] everything from here on is alterations on the basic viewpoint
  46. 460 [143] **left side intersecting halls*
  47. 470 [143] **1st left block**
  48. 480 [153]"usr(NULL)cmdcmd";:[129]x[178].[164]19:[153]" thencmdcmd";:[130]:[153]"andsqrcmdcmd waitstep":[142]
  49. 490 [143] **2nd left block**
  50. 500 [153]"";[163]8)"usr(NULL)cmdcmd";:[129]x[178].[164]8:[153]" thencmdcmd";:[130]:[153]"andsqrcmdcmdwaitstep"
  51. 510 [142]
  52. 520 [143] **3rd left block**
  53. 530 [153]"";[163]13)"(NULL)cmd";:[129]x[178].[164]3:[153]"thencmd";:[130]:[153]"sqrcmdwaitstep"
  54. 540 [142]
  55. 550 [143] **4th left block**
  56. 560 [153]"";[163]16)"(NULL)cmdsqrcmdwaitstep";
  57. 570 [142]
  58. 580 [143] *right side intersecting halls*
  59. 590 [143] *1st right block
  60. 600 [153]"";[163]38)"(NULL)cmd";:[129]x[178].[164]19:[153]"fncmd";:[130]:[153]"(NULL)cmdwait(NULL)":[142]
  61. 610 [143] *2nd right block
  62. 620 [153]""[163]30)"(NULL)usrcmdcmd";:[129]x[178].[164]8:[153]"fn cmdcmd";:[130]:[153]"(NULL)andcmdwait(NULL)
  63. 630 return
  64. 640 rem *3rd right block
  65. 650 print"";tab(26)"[207][157]";:forx=.to3:print"[165][157]";:next:print"[204][157][146][223]"
  66. 660 return
  67. 670 rem *4th right block
  68. 680 print"";tab(23)"[207][157][204][157][146][223]"
  69. 690 return
  70. 700 rem main hall brick walls
  71. 710 rem *1st wall
  72. 720 print"";:forx=.to3:printtab(6);
  73. 730 print"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]"
  74. 740 printtab(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]"
  75. 750 printtab(6)"[208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208]"
  76. 760 printtab(6)"[186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186]"
  77. 770 next
  78. 780 printtab(6)"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]"
  79. 790 printtab(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]"
  80. 800 return
  81. 810 rem *2nd wall
  82. 820 print"";:forx=.to4:printtab(12);"[208][183][208][183][208][183][208][183][208][183][208][183][208][183][208][183]"
  83. 830 printtab(12);"[183][208][183][208][183][208][183][208][183][208][183][208][183][208][183][208]":next:return
  84. 840 rem *3rd wall
  85. 850 print"";:forx=.to4:printtab(15);"[168][168][168][168][168][168][168][168][168][168]":next:return
  86. 860 rem *4th wall
  87. 870 print"";:printtab(18)"[166][166][166][166]":return
  88. 880 rem objects in main hall
  89. 890 rem *1st door
  90. 900 print"";tab(15)"::::::::::":printtab(15)":[146][173][173][173][173][173][173][173][173]:"
  91. 910 printtab(15)":[146][173][207][183][183][183][183][208][173]:":printtab(15)":[146][173][165][195][195][195][195][167][173]:"
  92. 920 printtab(15)":[146][173][204][175][175][175][175][186][173]:":printtab(15)":[146][173][173][173][173][173][173][173][194]:"
  93. 930 printtab(15)":[146][173][173][173][173][173][173][173][211]:"
  94. 940 forx=.to5:printtab(15)":[146][173][173][173][173][173][173][173][173]:":next:return
  95. 950 rem *2nd door
  96. 960 print"";:printtab(17)"::::::":printtab(17)":[146][173][173][173][173]:"
  97. 970 printtab(17)":[146][173][195][195][173]:":printtab(17)":[146][173][173][173][209]:"
  98. 980 forx=.to3:printtab(17)":[146][173][173][173][173]:":next:return
  99. 990 rem *3rd door
  100. 1000 print"";tab(19)"[172][187]":forx=.to2:printtab(19)"[173][173]":next:return
  101. 1010 rem *4th door
  102. 1020 print"";tab(19)"[220][220]":return
  103. 1030 rem inside room
  104. 1040 print"":forx=.to21:print"[214][214]"tab(38)"[219]":next
  105. 1050 print"[214][206][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][146][205]";:gosub890:return
  106. 1060 rem ****** shafts ******
  107. 1070 rem *1st shaft
  108. 1080 print"";tab(12)"[169][207][183][183][183][183][183][183][183][183][183][183][183][183][208][223]";:return
  109. 1090 rem *2nd shaft
  110. 1100 print"";tab(14)"[169][207][183][183][183][183][183][183][183][183][208][223]";:return
  111. 1110 rem *3rd shaft
  112. 1120 print"";tab(16)"[169][207][183][183][183][183][208][223]";:return
  113. 1130 rem *4th shaft
  114. 1140 print"";tab(18)"[169][207][208][223]";:return
  115. 1150 rem **** ceiling exits ****
  116. 1160 rem *1st exit
  117. 1170 print""tab(12)"[223][204][175][175][175][175][175][175][175][175][175][175][175][175][186][146][169]":return
  118. 1180 rem *2nd exit
  119. 1190 print""tab(14)"[223][204][175][175][175][175][175][175][175][175][186][146][169]":return
  120. 1200 rem *3rd exit
  121. 1210 print"";tab(16)"[223][204][175][175][175][175][186][146][169]":return
  122. 1220 rem *4th exit
  123. 1230 print"";tab(18)"[223][204][186][146][169]":return
  124. 1240 rem **** ladders ****
  125. 1250 rem *1st ladder
  126. 1260 print"";:printtab(14)"[167]"tab(25)"[165]"
  127. 1270 forx=.to6:printtab(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":printtab(14)"[167]"tab(25)"[165]"
  128. 1280 printtab(14)"[167]"tab(25)"[165]":next
  129. 1290 printtab(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":printtab(14)"[167]"tab(25)"[165]":return
  130. 1300 rem *2nd ladder
  131. 1310 print"";:forx=.to6
  132. 1320 printtab(16)"[217][197][197][197][197][197][197][212]":printtab(16)"[217]"tab(23)"[212]":next:return
  133. 1330 rem *3rd ladder
  134. 1340 print"";:forx=.to7
  135. 1350 printtab(18)"[172][162][162][187]":next:return
  136. 1360 rem *4th ladder
  137. 1370 print"";:forx=.to2:printtab(19)"[171][179]":next:return
  138. 1380 rem **** coffins ****
  139. 1390 rem *1st coffin
  140. 1400 print"";tab(11)"[169][206]--------------[205][223]"
  141. 1410 printtab(10)"[169][206]----------------[205][223]":return
  142. 1420 rem *2nd coffin
  143. 1430 print"";tab(14)"[169][206]========[205][223]":printtab(14)"[207][163][163][163][163][163][163][163][163][163][163][208]"
  144. 1440 printtab(14)"[207][163][178][163][163][163][163][163][163][178][163][208]":return
  145. 1450 rem *3rd coffin
  146. 1460 print""tab(16)"[169][206]====[205][223]":printtab(16)"[207][178][163][163][163][163][178][208]":return
  147. 1470 rem *4th coffin
  148. 1480 print""tab(17)"[169]====[223]":printtab(17)"[207][178][163][163][178][208]":return
  149. 1490 rem ***look routine ***
  150. 1500 cem=fnte(.):poke648,cem:printl$(dd);
  151. 1510 gosub190
  152. 1520 fc=4:vl=fc:lp=fc:lv=cd-1+4*-(cd=1):rv=cd+1+4*(cd=4)
  153. 1530 ebm=fncp(.):ifebm>-1andebm<256then1560
  154. 1540 iffcthenfc=fc-1:goto1530
  155. 1550 return
  156. 1560 el=fncp(lv):er=fncp(rv)
  157. 1570 if(dl(ebm,.))then1590
  158. 1580 gosub70:fc=fc-1:on1-(fc<.)goto1530,1670
  159. 1590 ifdl(el,.)andfc<4thenonfc+1gosub480,500,530,560
  160. 1600 ifdl(er,.)andfc<4thenonfc+1gosub600,620,650,680
  161. 1610 ford=1to5:if(dl(ebm,.)andbo(d))thenondgosub180,120,140,160,100
  162. 1620 print"[146]";:next:fc=fc-1:iffc>-1then1530
  163. 1630 ifdl(cl,2)=.then1670
  164. 1640 forx=.to8:pokexr,22:pokeyr,.:pokepr,.:sysplot
  165. 1650 if(dl(cl,2)andbo(x))thenprinttab(x*4+3);oa$(x)
  166. 1660 next
  167. 1670 gosub1700
  168. 1680 csm=fnsw(.):poke53272,(peek(53272)and15)orcsm:pokefnpm(u),7:return
  169. 1690 rem monster display
  170. 1700 iffcandvlthenvl=vl-1
  171. 1710 d=61:pokefnmp(1),d:pokefnmp(2),d:pokefnmp(3),d:pokefnmp(5),d
  172. 1720 el=.:er=.:forx=vlto.step-1:fc=fncm(x):ifdl(fc,1)=.then1760
  173. 1730 fc=dl(fc,1)-1:el=(elorsp(x+4)):ifx>lpthener=(erorsp(x+4))
  174. 1740 mb=sp(x)-1:ford=1tolen(sb$(x,fc)):pokefnmp(mb+d),asc(mid$(sb$(x,fc),d,1))
  175. 1750 pokebc+sp(x)+d,cs(fc):next
  176. 1760 next:pokev+21,el:pokev+27,er:return
  177. 1770 rem *variable/function declaration
  178. 1780 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)
  179. 1790 poke53272,peek(53272)and15:poke648,192:poke53272,(peek(53272)and240)or12
  180. 1800 poke53270,peek(53270)and247
  181. 1810 printchr$(147):gosub3020:gosub5830
  182. 1820 dimdl(255,2),bo(15),sp(7),sb$(3,7),d$(4),l$(6),oa$(8),cs(7),m(15),mh(15)
  183. 1830 dimhc(2):x=.:d=.:fc=.:cl=17:cd=2:vl=.:el=.:er=.:vs=.
  184. 1840 d(1)=1:d(2)=16:d(3)=-1:d(4)=-16:cs(.)=9:cs(1)=2:cs(2)=6:cs(3)=9:cs(4)=4
  185. 1850 cs(5)=14:cs(6)=13:cs(7)=1:lp=.:p=.:l=1:lf=10
  186. 1860 sp(.)=.:sp(1)=4:sp(2)=6:sp(3)=7:sp(4)=15:sp(5)=48:sp(6)=64:sp(7)=128
  187. 1870 tgl=16:csm=.:cem=192:v=53248
  188. 1880 d$(1)="e":d$(2)="s":d$(3)="w":d$(4)="n"
  189. 1890 nj=255:fj=254:lj=251:rj=247:bj=253:us=239:mu=237:u=.
  190. 1900 tl=388:dd=6:plot=65520:ar=780:xr=781:yr=782:pr=783:s=54272:bc=v+38
  191. 1910 ru=156:cu=142:all=511:hx=157:wl=17:cc=204:cr$=chr$(13)
  192. 1920 def fncp(x)=fc*d(cd)+(cl+d(x)):def fnsw(x)=(tgl-csm)
  193. 1930 def fnte(x)=(tl-cem):def fncm(x)=x*d(cd)+cl:def fnmp(x)=cem*256+1016+x
  194. 1940 def fnpm(x)=55296+972+(x*2)
  195. 1950 forx=.to15:bo(x)=2^x:next:l$(.)="":l$(1)="[155]":l$(2)="[152]":l$(3)="[151]"
  196. 1960 l$(4)="[151]":l$(5)="":l$(6)="[144]":hc(.)=2:hc(1)=8:hc(2)=10
  197. 1970 forx=.to255:readd:dl(x,.)=d:next
  198. 1980 forx=.to8:reada$:oa$(x)=a$:nextx
  199. 1990 forx=.to15:reada:m(x)=a:nextx
  200. 2000 forx=3to.step-1:ford=.to7:reada$:sb$(x,d)=a$:nextd,x
  201. 2010 forx=.to8
  202. 2020 a=int(rnd(1)*93+34):ifdl(a,.)=.then2020
  203. 2030 dl(a,1)=m(x):m(x)=a:mh(x)=x*4+1:next
  204. 2040 forx=9to15
  205. 2050 a=int(rnd(1)*96+142):ifdl(a,.)=.then2050
  206. 2060 dl(a,1)=m(x):m(x)=a:mh(x)=x*4+1:next
  207. 2070 d=52288:forx=.to767:reada:poked+x,a:next:forx=.to63:poke53055+x,.:next
  208. 2080 pokexr,23:pokeyr,1:pokepr,.:sysplot
  209. 2090 print"[152]f1 start new game  [152]f2 load old game";:poke198,.
  210. 2100 geta$:ifa$=""then2100:ifa$<>chr$(133)ora$<>chr$(137)then2100
  211. 2110 ifa$=chr$(137)thengosub3300
  212. 2120 pokexr,24:pokeyr,.:pokepr,.:sysplot
  213. 2130 printtab(3)"[151]created by cleveland m. blakemore "
  214. 2140 dl(cc,2)=bo(8)
  215. 2150 pokev+21,.:pokev+23,127:pokev+29,15:pokev,150:pokev+1,193:pokev+2,151
  216. 2160 pokev+3,151:pokev+4,119:pokev+5,109:pokev+6,167:pokev+7,109:pokev+8,164
  217. 2170 pokev+9,174:pokev+10,164:pokev+11,133:pokev+12,168:pokev+13,152
  218. 2180 pokev+14,172:pokev+15,160
  219. 2190 rem *** joystick routine ***
  220. 2200 gosub4070:gosub1500:it=ti+1000
  221. 2210 joy=peek(56321)
  222. 2220 ifrnd(1)>.93thenpokes+1,rnd(1)*7+2
  223. 2230 b=dl(cl,1):ifbandrnd(1)+b/100>.95thengosub2590
  224. 2240 ifti>itthengosub3080:goto2370
  225. 2250 ifjoy=njthen2210
  226. 2260 if(dl(cl+d(cd),.)andbo(5+cd))then2280
  227. 2270 ifjoy=fjanddl(cl+d(cd),.)thencl=cl+d(cd):goto2360
  228. 2280 if(dl(cl-d(cd),.)andbo(5))then2300
  229. 2290 ifjoy=bjanddl(cl-d(cd),.)thencl=cl-d(cd):goto2360
  230. 2300 ifjoy=rjthencd=cd+1:goto2350
  231. 2310 ifjoy=ljthencd=cd-1:goto2350
  232. 2320 ifjoy=usthenonu+1gosub2710,2730,80,2810,2850,2910,2950,80,80:goto2210
  233. 2330 ifjoy=muthengosub2430:gosub4070:goto2210
  234. 2340 gosub4030:gosub4070:goto2210
  235. 2350 cd=cd+((cd=5)*4)+((cd=.)*-4)
  236. 2360 gosub1500:goto2210
  237. 2370 zz=dd:vs=vs+1:ifvs=dd*6thenvs=.:dd=dd+((dd<6)*-1):ifdd=6thenl=(land254)
  238. 2380 ifzz<>ddthenpoke648,fnte(.):printl$(dd);"[147]":poke648,cem
  239. 2390 lf=lf+((lf<60)*-.4):if(land1)=.thendd=6
  240. 2400 poke53280,(lf<5)*-2+(lf>=5andlf<10)*-7
  241. 2410 goto2210
  242. 2420 rem ** command bar **
  243. 2430 poke198,.
  244. 2440 ifcu=14thencu=142:printchr$(9);chr$(cu);chr$(8);:gosub3450:pokev+33,.
  245. 2450 forx=.to8:if(landbo(x))thenpokefnpm(x),10
  246. 2460 next:x=.:a=fre(.):a=.:if(land(bo(u)))thenpokefnpm(u),7
  247. 2470 ifpeek(56321)<>njthen2470
  248. 2480 pokefnpm(x),1:if(landbo(a))thenpokefnpm(a),10:goto2500
  249. 2490 pokefnpm(a),2
  250. 2500 forjy=1to50:next:jy=peek(56321):geta$:ifa$=chr$(140)then3210
  251. 2510 p=l:ifjy=rjthena=x:x=x+1+(x=8)*9
  252. 2520 ifjy=usand(landbo(x))thenpokefnpm(u),10:u=x:pokefnpm(x),7:gosub4020
  253. 2530 ifjy=usthenreturn
  254. 2540 ifjy=fjand(dl(cl,2)andbo(x))thenl=(lorbo(x)):dl(cl,2)=dl(cl,2)-bo(x)
  255. 2550 ifjy=bjand(landbo(x))thenl=(land(511-bo(x))):dl(cl,2)=dl(cl,2)orbo(x):u=.
  256. 2560 ifl<>pthengosub4030:gosub1500:goto2440
  257. 2570 goto2480
  258. 2580 rem monster hits
  259. 2590 ifb=6thenu=.:dl(hx,2)=dl(hx,2)or(land238):l=land273
  260. 2600 ifcu=14thenreturn
  261. 2610 d=int(rnd(1)*3+1):poke53281,hc(d-1):lf=lf-(b/((land4)+1))+-d
  262. 2620 fort=1to100:next:poke53281,.:iflf<1then2650
  263. 2630 poke53280,(lf<5)*-2+(lf>=5andlf<10)*-7:gosub4100:gosub4070:return
  264. 2640 rem player killed
  265. 2650 forx=.to304:pokev+33,xand15:next:pokev+32,.:gosub3410:gosub6430
  266. 2660 poke198,.
  267. 2670 geta$:ifa$=""then2670
  268. 2680 ifa$="n"thensys64738
  269. 2690 pokev+21,.:run
  270. 2700 rem torch
  271. 2710 ifdd=6and(land1)thenvs=.:dd=1:gosub1500:return
  272. 2720 rem sword
  273. 2730 ifb=.orrnd(.)+lf/100<.5thengosub4100:return
  274. 2740 poke53281,5:fort=1to100:next:poke53281,.:forx=.to15
  275. 2750 on1-(m(x)=.)goto2760,2790
  276. 2760 ifcl=m(x)thenmh(x)=mh(x)-abs(rnd(.)+((land2)*1)+lf/5)
  277. 2770 ifmh(x)>.then2790
  278. 2780 m(x)=.:dl(cl,1)=.:pokev+21,peek(v+21)and240:gosub3410:gosub2800
  279. 2790 next:gosub4100:gosub4070:return
  280. 2800 lf=lf+b/4:dl(cl,2)=(dl(cl,2)orbo(b-1)):gosub1500:gosub4030:return
  281. 2810 rem ** ring **
  282. 2820 cu=ru-cu:printchr$(9);chr$(cu);chr$(8);:poke53281,(cu=14)*-4
  283. 2830 gosub3450:gosub4070:return
  284. 2840 rem rope
  285. 2850 if(dl(cl,.)andbo(2))thencl=cl+128:gosub3970:gosub1500:gosub4070:return
  286. 2860 if(dl(cl,.)and24)=24and(land384)=384thendl(cl,2)=dl(cl,2)orbo(8):l=land255
  287. 2870 if(dl(cl,.)and24)=24thencl=cl-128:gosub3920:gosub1500:gosub4070:return
  288. 2880 ifcl=wlandl=allthen2990
  289. 2890 gosub4030:gosub4070:return
  290. 2900 rem wand
  291. 2910 ifb=6thengoto2740
  292. 2920 dl(cl+d(cd),.)=(dl(cl+d(cd),.)and63):gosub3450:gosub4070
  293. 2930 return
  294. 2940 rem ** key **
  295. 2950 if(dl(cl+d(cd),.)andbo(5))=.thenreturn
  296. 2960 if(dl(cl+d(cd),.)andbo(5+cd))thendl(cl+d(cd),.)=dl(cl+d(cd),.)-bo(5+cd)
  297. 2970 gosub4100:gosub4070:return
  298. 2980 rem       victory
  299. 2990 gosub6140
  300. 3000 gosub3450:goto2660
  301. 3010 rem *** load character set ***
  302. 3020 forx=.to32:reada:poke53200+x,a:next:poke56334,peek(56334)and254
  303. 3030 poke1,peek(1)and251:sys53200:poke1,peek(1)or4:poke56334,peek(56334)or1
  304. 3040 reada:ifa=-1thenreturn
  305. 3050 forx=.to7:readd:poke61440+a*8+x,d:next:goto3040
  306. 3060 rem ** monster movement
  307. 3070 d=.:fc=8:ifcl>127thend=9:fc=15
  308. 3080 p=6:d=.:fc=8:ifcl>127thend=9:fc=15
  309. 3090 forx=dtofc:on1-(m(x)=.)goto3100,3160
  310. 3100 ifcl<m(x)-pthena=m(x)+d(4)
  311. 3110 ifcl>m(x)+pthena=m(x)+d(2)
  312. 3120 ifcl>m(x)andcl<m(x)+pthena=m(x)+d(1)
  313. 3130 ifcl<m(x)andcl>m(x)-pthena=m(x)+d(3)
  314. 3140 ifa<.ora>255then3160
  315. 3150 ifdl(a,.)anddl(a,1)=.thendl(a,1)=dl(m(x),1):dl(m(x),1)=.:m(x)=a
  316. 3160 next
  317. 3170 d=dl(cl,1):ifdthenondgosub3540,3540,3630,3630,3690,80,3860,3780:gosub4070
  318. 3180 pokev+21,.:fc=.:gosub1700:it=ti+1000:return
  319. 3190 return
  320. 3200 rem  save game routine
  321. 3210 print"[146] saving";
  322. 3220 open1,8,15:print#1,"s0:lastdungeon":close1
  323. 3230 open1,8,2,"lastdungeon,u,w":forx=.to2:ford=.to255:print#1,dl(d,x) cr$
  324. 3240 nextd:print".";:nextx:print".";:forx=.to15:print#1,m(x),cr$,mh(x),cr$
  325. 3250 nextx:print".";
  326. 3260 print#1,cl,cr$,cd,cr$,lf,cr$,l,cr$,u,cr$,dd,cr$,vs,cr$,hx,cr$,wl,cr$
  327. 3270 print#1,cc,cr$
  328. 3280 close1:goto2430
  329. 3290 rem    load routine
  330. 3300 :
  331. 3310 f$="lastdungeon"
  332. 3320 open1,8,15:print#1,"i0:":close1:open1,8,2,f$+",u,r"
  333. 3330 forx=.to2:ford=.to255:input#1,dl(d,x):nextd,x:forx=.to15
  334. 3340 input#1,m(x),mh(x)
  335. 3350 nextx
  336. 3360 input#1,cl,cd,lf,l,u,dd,vs,hx,wl,cc
  337. 3370 close1:open1,8,15:input#1,a,b$,c,d:close1
  338. 3380 ifathenprint""tab(8)a;b$;c;d
  339. 3390 fort=1to5000:next:return
  340. 3400 rem * something died *
  341. 3410 forp=stos+24:pokep,.:next:pokes+24,15:pokes+5,8:pokes+6,255
  342. 3420 pokes+4,21:f1=2:forz=1to24:f2=80:pokes+1,f1:fory=1to5:pokes+15,f2
  343. 3430 f2=f2/1.1:nexty:f1=f1+9:nextz:pokes+6,15:return
  344. 3440 rem **sorcery**
  345. 3450 forp=stos+24:pokep,.:next:pokes+24,15
  346. 3460 pokes+5,8:pokes+6,255:pokes+4,23:f1=10
  347. 3470 forz=1to30:f2=30
  348. 3480 pokes+1,f1
  349. 3490 fory=1to10:pokes+15,f2
  350. 3500 f2=f2*1.01:nexty
  351. 3510 f1=f1+1:nextz
  352. 3520 pokes+6,15:return
  353. 3530 rem **spider**
  354. 3540 forp=stos+24:pokep,.:next:pokes+24,15
  355. 3550 pokes+5,8:pokes+6,255:pokes+4,23:f1=11:f2=25
  356. 3560 forz=5to50
  357. 3570 pokes+1,f1
  358. 3580 pokes+15,f2
  359. 3590 f2=f2*.97
  360. 3600 f1=f1+1:nextz
  361. 3610 pokes+6,15:return
  362. 3620 rem *** rats ***
  363. 3630 forp=stos+24:pokep,.:next
  364. 3640 pokes+24,15:pokes+5,24:pokes+6,248
  365. 3650 poke s+4,33
  366. 3660 forp=17to13step-1:pokes,p:fort=125to135:pokes+1,t:nextt,p:pokes+4,32
  367. 3670 return
  368. 3680 rem **goblin**
  369. 3690 forp=stos+24:pokep,.:next:pokes+24,15
  370. 3700 pokes+5,8:pokes+6,255:pokes+4,23:f1=15:f2=15
  371. 3710 forz=1to10:
  372. 3720 pokes+1,f1
  373. 3730 pokes+15,f2
  374. 3740 f2=f2*1.01
  375. 3750 f1=f1*1.3:nextz
  376. 3760 pokes+6,15:return
  377. 3770 rem ** naga **
  378. 3780 forp=stos+24:pokep,.:next:pokes+24,15
  379. 3790 pokes+5,8:pokes+6,255:pokes+4,23:f1=8:f2=4
  380. 3800 forz=1to30:
  381. 3810 pokes+1,f1
  382. 3820 pokes+15,f2
  383. 3830 f2=f2*1.01
  384. 3840 f1=f1+1:nextz
  385. 3850 pokes+6,15:return
  386. 3860 rem *** serpents ***
  387. 3870 forp=stos+24:pokep,.:next
  388. 3880 pokes+24,15:pokes+5,155:pokes+6,245
  389. 3890 poke s+4,129:forp=50to55:poke s,d
  390. 3900 fort=35to55:pokes+1,t:nextt,p:pokes+4, 128:fort=1to 100:next:return
  391. 3910 rem * shaft up *
  392. 3920 forp=stos+24:pokep,.:next:pokes+24,15
  393. 3930 pokes+5,8:pokes+6,255:pokes+4,23
  394. 3940 forf1=4to18step2:pokes+15,f1
  395. 3950 forf2=10to180step2:pokes+1,f2:nextf2,f1:pokes+6,15:return
  396. 3960 rem * shaft down *
  397. 3970 forp=stos+24:pokep,.:next:pokes+24,15
  398. 3980 pokes+5,8:pokes+6,255:pokes+4,23
  399. 3990 forf=15to8step-1
  400. 4000 forf1=18to10step-2:pokes+15,f1
  401. 4010 forf2=12to4step-1:pokes+1,f2:pokes+15,f:nextf2,f1,f:pokes+6,15:return
  402. 4020 rem * beep *
  403. 4030 forp=stos+24:pokep,.:next:pokes+24,15
  404. 4040 pokes+5,96:pokes+6,96:pokes+4,23:pokes+2,85:pokes+1,36
  405. 4050 forf=1to10:next:pokes+6,15:return
  406. 4060 rem *** sinister music ***
  407. 4070 forp=stos+24:pokep,.:next:pokes+24,15
  408. 4080 pokes+1,10:pokes,5:pokes+5,129:pokes+6,129:pokes+4,21:return
  409. 4090 rem ** slash **
  410. 4100 forp=stos+24:pokep,.:next:pokes+24,15
  411. 4110 pokes+1,25:pokes,5:pokes+5,20:pokes+6,20:pokes+4,129:fort=1to75:next
  412. 4120 pokes+4,128:return
  413. 4130 rem ml program
  414. 4140 data 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,8
  415. 4150 data 160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
  416. 4160 rem character data
  417. 4170 data035,024,060,110,110,110,110,110,110
  418. 4180 data036,255,199,231,129,000,060,126,255
  419. 4190 data037,255,060,024,255,219,153,153,024
  420. 4200 data038,024,024,060,102,102,060,000,000
  421. 4210 data039,000,126,127,127,112,126,000,255
  422. 4220 data040,110,110,110,110,110,110,110,110
  423. 4230 data042,060,060,255,153,060,060,060,060
  424. 4240 data081,255,231,231,231,231,219,195,231
  425. 4250 data083,231,195,153,189,165,153,195,255
  426. 4260 data086,027,031,031,027,059,123,219,155
  427. 4270 data088,126,102,102,126,024,024,030,030
  428. 4280 data091,216,248,248,216,220,222,219,217
  429. 4290 data092,175,088,171,088,168,088,168,088
  430. 4300 data102,219,054,219,102,219,054,219,102
  431. 4310 data104,024,255,192,192,192,255,024,024
  432. 4320 data107,031,024,031,024,031,024,031,024
  433. 4330 data108,255,182,255,191,240,176,247,176
  434. 4340 data109,255,129,255,129,255,255,129,255
  435. 4350 data115,248,024,248,024,248,024,248,024
  436. 4360 data123,255,109,255,253,015,013,239,013
  437. 4370 data163,255,159,159,239,247,251,253,255
  438. 4380 data164,239,239,239,239,239,199,239,239
  439. 4390 data165,189,129,153,189,165,129,195,231
  440. 4400 data166,255,255,231,219,219,231,255,255
  441. 4410 data167,207,183,123,195,129,000,255,255
  442. 4420 data168,199,239,131,239,239,239,239,239
  443. 4430 data169,199,215,199,239,239,239,231,231
  444. 4440 data170,129,195,231,195,153,016,153,195
  445. 4450 data171,255,255,102,000,090,000,255,255
  446. 4460 data173,255,129,255,255,231,231,255,255
  447. 4470 data186,255,231,255,231,255,231,255,231
  448. 4480 data189,255,129,255,239,255,129,255,239
  449. 4490 data197,255,000,255,255,255,255,000,255
  450. 4500 data220,250,021,218,021,026,021,026,021
  451. 4510 data230,054,177,129,108,108,153,153,102
  452. 4520 data242,255,255,189,189,129,255,219,255,-1
  453. 4530 data .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  454. 4540 data .,8,2,1,2,1,.,1,1,1,.,1,352,4,2,.
  455. 4550 data .,1,.,16,.,1,.,1,.,1,32,1,.,2,2,.
  456. 4560 data .,1,.,1,1,2,16,1,.,1,.,1,.,.,1,.
  457. 4570 data .,4,1,2,.,1,.,1,2,1,1,2,1,.,4,.
  458. 4580 data .,1,.,1,.,1,1,1,.,.,.,.,1,.,.,.
  459. 4590 data .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,.
  460. 4600 data .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  461. 4610 data .,2,1,1,2,16,2,1,1,1,.,2,2,2,2,.
  462. 4620 data .,1,.,1,.,1,.,1,.,1,1,1,1,984,2,.
  463. 4630 data .,2,1,1,.,1,2,1,2,1,.,32,2,2,2,.
  464. 4640 data .,.,.,2,.,1,.,1,.,1,.,129,.,.,.,.
  465. 4650 data .,24,1,1,1,1,.,2,1,1,.,1,65,.,24,.
  466. 4660 data .,1,.,.,1,.,1,1,.,1,.,1,.,.,1,.
  467. 4670 data .,1,2,2,1,2,1,.,.,168,.,129,2,1,1,.
  468. 4680 data .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  469. 4690 rem object shape strings
  470. 4700 data "[145][219][146][157][205][205][157][205][205]"
  471. 4710 data "[145][145]#[157]([157]([157]*"
  472. 4720 data "[145][223][169][157][157][157][157][194][146]$$[194][157][157][157][157][194][178][178][194]"
  473. 4730 data "&"
  474. 4740 data "[202][201][157][157][166][166][166]"
  475. 4750 data "[145]*[157][146][194][157][194]"
  476. 4760 data "[157][216]"
  477. 4770 data "[145][145][157][157][157][223] [146][169][157][157][157][169][163][223][157][157][157][157][169] [146]'[160][223][157][157][157][157][157][146][223][163][163][163][146][169]"
  478. 4780 data "[157][157][223][169][223][169][157][157][157][157]===="
  479. 4790 rem monster types
  480. 4800 data 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8
  481. 4810 rem monster string shape data
  482. 4820 data 1,1,2,2,3,4,<,<
  483. 4830 data 1,1,2,2,3,4,<,<
  484. 4840 data 1,1,2,2,3,65,":;",":;"
  485. 4850 data 1,1,2,2,3,65,":978",":978"
  486. 4860 rem monster sprite data
  487. 4870 data000,000,000,000,000,000,000,000
  488. 4880 data000,000,000,000,004,000,032,006
  489. 4890 data000,096,005,060,160,008,255,016
  490. 4900 data016,255,008,019,255,200,036,255
  491. 4910 data036,009,255,144,018,255,072,037
  492. 4920 data126,164,042,060,084,036,024,036
  493. 4930 data042,060,084,004,090,032,002,126
  494. 4940 data064,001,090,128,000,036,000,000
  495. 4950 data000,000,000,056,255,000,067,255
  496. 4960 data192,055,255,224,015,255,240,015
  497. 4970 data255,240,015,255,240,014,255,176
  498. 4980 data014,127,048,030,190,184,062,221
  499. 4990 data188,127,107,126,252,255,159,120
  500. 5000 data221,143,120,073,007,056,127,003
  501. 5010 data024,093,003,012,008,030,030,000
  502. 5020 data047,053,000,010,085,000,020,000
  503. 5030 data052,066,015,024,102,031,044,090
  504. 5040 data033,006,102,001,003,090,001,007
  505. 5050 data165,227,011,219,211,021,231,175
  506. 5060 data046,231,119,089,126,189,113,219
  507. 5070 data153,096,165,001,113,153,129,107
  508. 5080 data126,193,102,195,097,037,129,161
  509. 5090 data015,000,241,015,000,241,010,000
  510. 5100 data081,014,000,113,058,000,092,220
  511. 5110 data000,120,000,000,132,000,001,074
  512. 5120 data016,001,002,040,003,135,040,005
  513. 5130 data134,144,014,205,144,031,123,208
  514. 5140 data061,183,248,061,207,228,041,183
  515. 5150 data100,041,207,044,041,255,056,026
  516. 5160 data001,024,003,207,000,003,183,000
  517. 5170 data007,207,000,005,122,128,011,239
  518. 5180 data128,013,123,064,013,086,192,220
  519. 5190 data000,248,000,001,004,000,002,002
  520. 5200 data000,002,138,000,002,002,000,002
  521. 5210 data002,000,002,003,006,003,007,009
  522. 5220 data003,143,009,003,223,009,013,254
  523. 5230 data198,030,253,230,063,123,246,127
  524. 5240 data183,255,191,207,247,223,183,250
  525. 5250 data159,207,242,159,255,242,151,255
  526. 5260 data210,103,255,204,002,000,064,231
  527. 5270 data003,231,192,007,219,224,007,189
  528. 5280 data224,015,219,224,015,231,240,015
  529. 5290 data255,240,015,255,240,015,255,240
  530. 5300 data015,255,240,015,255,240,015,255
  531. 5310 data240,015,255,240,031,255,248,031
  532. 5320 data255,248,031,127,216,061,239,124
  533. 5330 data047,191,236,058,250,172,045,149
  534. 5340 data246,095,086,174,164,221,202,102
  535. 5350 data000,000,254,000,001,127,000,002
  536. 5360 data223,000,004,207,000,011,103,000
  537. 5370 data021,191,000,043,215,000,087,223
  538. 5380 data000,087,224,000,087,243,000,091
  539. 5390 data251,000,045,255,000,022,255,000
  540. 5400 data011,000,000,005,191,000,002,192
  541. 5410 data000,001,063,000,000,213,000,000
  542. 5420 data090,000,000,045,000,000,042,220
  543. 5430 data127,000,000,254,128,000,251,064
  544. 5440 data000,243,032,000,230,208,000,253
  545. 5450 data168,000,235,212,000,251,234,000
  546. 5460 data007,234,000,207,234,000,223,218
  547. 5470 data000,255,180,000,255,104,000,000
  548. 5480 data208,000,253,160,000,003,064,000
  549. 5490 data252,128,000,171,000,000,090,000
  550. 5500 data000,180,000,000,084,000,000,220
  551. 5510 data061,188,000,042,084,000,061,188
  552. 5520 data000,042,084,000,061,188,000,062
  553. 5530 data124,000,045,180,000,061,188,000
  554. 5540 data042,084,000,045,180,000,062,124
  555. 5550 data000,061,188,000,042,084,000,061
  556. 5560 data188,000,042,084,000,045,180,000
  557. 5570 data058,092,000,045,180,000,021,090
  558. 5580 data000,022,173,000,011,086,128,239
  559. 5590 data002,189,064,003,195,192,002,189
  560. 5600 data064,002,195,064,003,189,194,002
  561. 5610 data195,065,003,189,193,002,067,067
  562. 5620 data005,166,199,010,221,074,021,106
  563. 5630 data156,038,182,148,091,087,092,108
  564. 5640 data171,182,087,085,202,088,169,170
  565. 5650 data103,214,106,089,069,214,039,255
  566. 5660 data236,026,105,088,007,255,240,028
  567. 5670 data007,231,224,011,126,208,021,060
  568. 5680 data168,046,255,116,095,126,250,095
  569. 5690 data129,250,095,189,250,047,255,244
  570. 5700 data020,255,040,011,000,208,004,255
  571. 5710 data032,003,000,192,002,230,064,003
  572. 5720 data153,192,003,219,192,002,036,064
  573. 5730 data002,219,064,003,036,192,002,219
  574. 5740 data064,003,036,192,002,219,064,000
  575. 5750 data000,252,000,001,122,000,003,183
  576. 5760 data000,003,207,000,001,254,000,000
  577. 5770 data252,000,000,120,000,000,120,000
  578. 5780 data000,120,000,000,120,000,000,120
  579. 5790 data000,000,120,000,000,120,064,000
  580. 5800 data120,032,000,120,032,000,252,096
  581. 5810 data001,255,192,015,000,224,031,255
  582. 5820 data240,024,003,240,015,255,224,221
  583. 5830 printchr$(8)chr$(142)chr$(19):print"[147][146] [151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  584. 5840 print" [168]                                   [168]"
  585. 5850 print" [168]   NP{$7f}[146]  [169][146]O[151]N[187][172][151][146]N[184] {$7f}[151][146]N[184] [146][184][151]N[162] [185][185] [151][146]N   [146]    [151][168]"
  586. 5860 print" [168]   P[170] {$7f}[169] [146][165][151]P[161][146][161][151]P  [146]{$7f}{$7f}[151][146]N[160][146] [151]P [160][151][146]DNN[165][182][151][146]N[188]    [151][168]"
  587. 5870 print" [168]   [170][170]    [146][165][151][170][161][146][161][151][170]  [151][146]M{$7f}{$7f} [146] [151][170]   [151][146][163] [165]   [146]    [151][168]"
  588. 5880 print" [168]   [170][170] [146]{$7f}[169] [146][165][151][170][161][146][161][151][170]  [146] [151]M{$7f} [146] [151][170]  [151][146]N  L N [146]    [151][168]"
  589. 5890 print" [168]   [170][186] [151][146][167]  [146]L[151][170][190][188][151][146][170][185] [146]  [162] [146][162][151][170][162] [146][162][162] [146] [188][146][162] [146]    [151][168]"
  590. 5900 print" [168]   N N[167]N NN NN N N  NN    NN  N    [168]"
  591. 5910 print" [168]   [163][163]  [163][163] [163][163] [163][163]  [163][163][163] [163][163][163][163][163] [163][163][163]     [168]"
  592. 5920 print" [168]    [156][162][162][162][162][162][162][162][162][162] [158][172][187][146] [172][146][190] [156][162][162][162][162][162][162][162][162][162][162][162]    [151][168]"
  593. 5930 print" [168]    [184][184][184][184][184][184][184][184][184] [158][188][190][146] [172][146][190] [184][184][184][184][184][184][184][184][184][184][184]    [151][168]"
  594. 5940 print" [168]                                   [168]"
  595. 5950 print" [168]                                   [168]"
  596. 5960 print" [168]    N[156] {$7f}[146]  [169] [151][146]N[156]   [151][146]N[156]   {$7f}[151][146]N[156] [146]  [151]N[156] [151][146]N[156] {$7f}[151][146]N[156] [146]    ";
  597. 5970 print"[151][168]"
  598. 5980 print" [168]   [167]NN[156] {$7f}[169] [151][146]N[165][156][160][146] [151]N[165][156] [146] [151]N[156] [151][146][165][156][160][146]  [151][165][156] [146]  [146]{$7f}{$7f} [146]    [151][168]"
  599. 5990 print" [168]    [163][165][156]    [146] [151][165][156][160] [146] [151][165][156]   [146][169][151][165][156][160][146]  [151][165][156] [146]  [146] {$7f} [146]    [151][168]"
  600. 6000 print" [168]     [165][156] [146]{$7f}[169] [146] [151][165][156] [151][146]N [165][156] [151][146]N[156]{$7f}{$7f}[151][146][165][156] [146]  [151][165][156][160][146]  [151][146]MN[156] [146]  ";
  601. 6010 print"  [151][168]"
  602. 6020 print" [168]     [165][156] [151][146]N[165][156] [146] [151][165][156] [146]  [151][165][156] [151][146]MN[156] [151][146][165][156] [146]  [151][165][156] [146]  [146] [151][165][156] [146]";
  603. 6030 print"    [151][168]"
  604. 6040 print" [168]    N[156]  [146] [151][165][156]  [151][146][165][156]   [151][146][165][156] [146] [151][165][156] [151][146][165][156]   [151][146][165][156] [146]  [146] [151][165][156] [146]";
  605. 6050 print"    [151][168]"
  606. 6060 print" [168]   [167]N N N NN  NNN NNN  NNNNN NN    [168]"
  607. 6070 print" [168]    [163][163]  [163][163] [163][163][163] [163]  [163] [163][163][163] [163] [163]  [163]     [168]"
  608. 6080 print" [168]                                   [168]"
  609. 6090 print" [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  610. 6100 print"  [146] please wait.....preparing dunjon! [151] "
  611. 6110 print"      [c] 1988  nemesis  software     ";
  612. 6120 print"";
  613. 6130 return
  614. 6140 print"[147][146]IUIUIUIUIUIUIUIUIUIUIUIUIUIUIUIUIUIUIUIU";
  615. 6150 print"JKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJK";
  616. 6160 print"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";
  617. 6170 print"   [180] [180]{$7f} [180]  [180] {$7f}[180]  [180]  [180][146] [160][165][146] [165]  [165]  [165][165] [165]{$7f}[160][165][162][164]";
  618. 6180 print" [146]  [180][161][180][146]{$7f} [180][146]  [180][146]  [180][146]  [146]  [146] [180][146] [160][165][146] [165][146]  [146]  [146] [165][165][161][165][146]{$7f}[160][165]"
  619. 6190 print" [146]  [180][161][180][146]  [180][146][188] [180] [146][169][180][175] [146]  [146] [180][146] [160][165][146] [165]  [146]  [146] [165][165][161][165][146] [160][165]  ";
  620. 6200 print" [146]  [180][161][180][146]  [180][146]  [180][146]{$7f}{$7f}[180][146]  [146]  [146] [165][146]  [165][146] [165][146] [160][146]  [146] [165][165][161][165][146]  [146]  ";
  621. 6210 print" ";
  622. 6220 print"   [180][190][180][146]  [180]  [180][146] {$7f}[180][146] [160][146]  [146] [180]  [165] [165][146]  [146]  [146] [165][165][190][180][146]  [165]  ";
  623. 6230 print"[146][150][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  624. 6240 print"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  625. 6250 print"[168][168][168][168][168][168]                         [168][168][168][168][168][168][168][168][168]";
  626. 6260 print"[168][168][168][168][168][168]  [156]you have survived the  [151][168][168][168][168][168][168][168][168][168]";
  627. 6270 print"[168][168][168][168][168][168]     [156]mines of merlin!    [151][168][168][168][168][168][168][168][168][168]";
  628. 6280 print"[168][168][168][168][168][168]                         [168][168][168][168][168][168][168][168][168]";
  629. 6290 print"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  630. 6300 print"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  631. 6310 print"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  632. 6320 print"[168][168]                      [160][160][160][160][160][160][160][160][160]   [151] [168][168][168]";
  633. 6330 print"[168][168]#[158]the crown of [154]king arthur [158]has been[151]#[168][168][168]";
  634. 6340 print"[168][168]( [158] returned to its proper resting [151]([168][168][168]";
  635. 6350 print"[168][168]([158]place in the [153]secret druid nemeton[151]([168][168][168]";
  636. 6360 print"[168][168](          [158]in ireland!!!          [151]([168][168][168]";
  637. 6370 print"[168][168]*                                 *[168][168][168]";
  638. 6380 print"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  639. 6390 print"[168][168] do you wish to play again?[y/n] [151][168][168][168][168]";
  640. 6400 poke241,peek(241)or128
  641. 6410 print"[145]":print"[148][168]";:print"";
  642. 6420 return
  643. 6430 pokev+21,.:print"[147][146]     alas,warrior...thou hast been"
  644. 6440 print"  [169]    [146]   [146]         [146]       [146]    {$7f}[146]    [146]    "
  645. 6450 print"    [146]      [146]    [160][146]    [146]     [182][146]    [146]{$7f} {$7f}   [146]    "
  646. 6460 print"  {$7f}    [146]   [146]        [160][146]     [182][146]    [146] {$7f}    [146]    "
  647. 6470 print"       [146] [160][160][146]    [160][146]   [160][146]    [160][182][146]  [160][160][146]  {$7f}   [146]    "
  648. 6480 print"    [169]  [146]  [160][146]    [160][146]   [160][146]    [160][182][146]  [160][160][146]      [146]    "
  649. 6490 print"   [169]  [146][169]      [146]  [146]    [146]     [182][146]  [160][160][146]      [146]  [175][175]"
  650. 6500 print"     [146][169]       [146]  [146]   [160][146]       [146]  [160][146]      [146]    "
  651. 6510 print"      [rather brutally,i might add]"
  652. 6520 print
  653. 6530 print"  [156]  the adventurers union found your   "
  654. 6540 print"   somewhat disfigured remains stuffed "
  655. 6550 print"   hastily in one of the coffins inside"
  656. 6560 print"   the mine,and returned your body to  "
  657. 6570 print"   your relatives for a burial fitting "
  658. 6580 print"   to a knight errant slain while on a "
  659. 6590 print"   noble and endearing quest.....      "
  660. 6600 print
  661. 6610 print"     if you are able,i think i could"
  662. 6620 print"     resurrect you.would you like to"
  663. 6630 print"    try your luck in the mines again?"
  664. 6640 print
  665. 6650 print"      type [y] for yes to continue,"
  666. 6660 print"      or [n] for no to end game and"
  667. 6670 print"      [159]return to commodore basic 2.0";
  668. 6680 print"";:return
  669.